|
Autocad VBA : Dialogfeld aufrufen -Hilfe-
PG01 am 11.03.2005 um 15:50 Uhr (0)
Hallo Einstein, mit dem Steuerelement Microsoft Common Dialog Control sollte es funktionieren. Das Steuerelement stellt Windows-Standard-Dialogfelder zum Datei-Öffnen oder Farbauswahl etc. zur Verfügung. Du in der Werkzeugsammlung mit der rechten Maustaste zusätzliche Steuerelemente anklicken und dann das Steuerelement aus der Liste auswählen. Grüße PG ------------------ GÜNTHER ENGINEERING 30519 Hannover
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Attribute
PG01 am 17.03.2005 um 20:24 Uhr (0)
Hallo, ich habe das jetzt so verstanden: Die Blöcke die Du einfügt, sind mal waagerecht und mal senkrecht ausgerichtet und die sichtbaren Attribute dann ebenso. Das es sich um einen Stromlaufplan (oder so ähnlich) handelst, möchtest Du wahrscheinlich, daß alle Attribute in der gleichen Ausrichtung stehen. Wenn dem so ist, könnte man zum Beispiel mit einem Makro, daß die Ereignisse in AutoCAD überwacht, das bewerkstelligen. Ein Ereignis im Sinne der Windows-Programmierung ist zum Beispiel ein Mausklick, ein ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
PG01 am 22.08.2005 um 21:23 Uhr (0)
Hallo Dirk,bezüglich der Erzeugung von WMF-Dateien als Blockvorschau habe ich noch einen Nachtrag. Was ich meinte ist nicht manuell von jedem Block einzeln eine WMF-Datei zu erstellen, sondern aus einer ganzen Blocksammlung (die in einer Datei vorhanden sind), die einzelnen Voransichten automatisch zu erstellen. So ähnlich wie die Cache-Datei für das Design-Center, daß AutoCAD automatisch in jeden Pfad erstellt.Hast Du dafür so eine Lösung gefunden ?GrüßeP. Günther------------------GÜNTHER ENGINEERING30519 ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Excel integration in AutoCAD
PG01 am 01.04.2005 um 19:33 Uhr (0)
Hallo sTixi,wenn es Dir erstmal nur darum geht, von AutoCAD Daten aus Excel zu lesen, geht das zum Beispiel so:Sub DatenAusExcel() Dim zmax, smax as Integer Dim RG As Object Dim Hilfsfeld() As Single zmax=10:smax=20 ReDim Hilfsfeld(zmax, smax) Set RG = GetObject(, "Excel.Application") For z = 0 To zmax For s = 1 To smax Hilfsfeld(z, s) = RG.Application.cells(z + 2, s).value Next s Next zEnd SubGrüßePG01------------------GÜNTHER ENGINEERING30519 Hannover
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
